home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / elecmail / cs_mac07.zip / TABLE.MAC < prev    next >
Text File  |  1993-03-28  |  10KB  |  270 lines
  1.  
  2.  ┌────────────────────────────────┐
  3.  │  Chuck Seyboldt's COMMO Macro  │   CS-MAC07:TABLE.MAC
  4.  └────────────────────────────────┘
  5.   *
  6.   *  Contents:       MAILware prompt table
  7.   *                  BBSware prompt table
  8.   *                  BBSID particulars
  9.   *
  10.   *  Called from:    COMMO.MAC   :qwk
  11.   *
  12.   *  Control passes to:  LOGON.MAC,glr
  13.   *
  14.   *  The file you are reading  *DOES NOT*  require editing.
  15.   *
  16. ***  However, COMMO.FON does require editing.
  17.   *
  18.   *  This TABLE.MAC file provides a facility to combine different BBSware
  19.   *  and MAILware prompts.  It is fairly easy to maintain COMMO.FON with
  20.   *  a text editor.  CS-MAC also provides a menu-driven way to add BBSID
  21.   *  particulars to COMMO.FON (actually, it writes a COMMOFON.NEW file)
  22.   *
  23. ***  BBSID particulars must be added to COMMO.FON.
  24.   *
  25.   *  When your macro stalls at a BBSware or MAILware prompt, TABLE.MAC is
  26.   *  one place you should look to change.  This is because TABLE.MAC sets
  27.   *  many of the {look } and {golo } prompt strings that LOGON.MAC uses.
  28.  
  29.  ┌───────────────────────┐
  30.  │  Link from COMMO.MAC  │
  31.  └───────────────────────┘
  32.  {:qwk}  {sete-p0 pcb}
  33.          {call %mail}
  34.          {comp bbs}                 ;After logon, %bbs will be NUL
  35.          {ifco ,%bbs}               ;Goto %bbs at start of call,
  36.                                     ; "generic logon routine"
  37.          {macl logon.mac,noact}     ;To open two doors in one call
  38.  
  39.  ┌─────────────────────────┐
  40.  │  MAILware Prompt Table  │
  41.  └─────────────────────────┘
  42.   *
  43. * %md_pmt  =  MailDoor_ProMpT  (The MAILware Door Main prompt)
  44. * %mt_qwk  =  eMpTy_qwk        (The message signaling an empty packet)
  45. * %md_brnch = MailDoor BRaNCH  (This variable defines "where to branch",
  46. *                               "on what prompt".  Branch occurs after
  47. *                               scan, during summary report.  Used to count
  48. *                               messages or skip-counting)
  49. * %xfer_pmt = Transfer prompt  (Seen only from LOGON.MAC:mc1 or :mc2 branches)
  50. * %yes, %no = yes, no          (Affirmative and negative responses)
  51. * %quit     = Return to BBS    (Command to quit door rather than logoff BBS)
  52.  
  53.  {:mm2}                             ;MarkMail 2
  54.          {setv md_pmt,Mail Command}
  55.          {setv mt_qwk,was found!}
  56.          {setv md_brnch,mc2,tal Messages: }
  57.          {setv xfer_pmt,When done?}
  58.          {setv rdr,%qrdr}
  59.          {setv qwk,qwk}{setv rep,rep}
  60.          {setv yes,y|} {setv no,n|}
  61.          {setv quit,q|}
  62.          {retu}
  63.  
  64.  {:qm2}                             ;Qmail 2
  65.          {setv md_pmt,) Command?}
  66.          {setv mt_qwk,No Message}
  67.          {setv md_brnch,qdl,this packet (}
  68.          {setv xfer_pmt,this packet (}
  69.          {setv rdr,%qrdr}
  70.          {setv qwk,qwk}{setv rep,rep}
  71.          {setv yes,y|} {setv no,n|}
  72.          {setv quit,q|}
  73.          {retu}
  74.  
  75.  {:qm4}                             ;Qmail 4
  76.          {setv md_pmt,l Command?}
  77.          {setv mt_qwk,No Message}
  78.          {setv md_brnch,qdl,se messages}
  79.          {setv xfer_pmt,se messages}
  80.          {setv rdr,%qrdr}
  81.          {setv qwk,qwk}{setv rep,rep}
  82.          {setv yes,y|} {setv no,n|}
  83.          {setv quit,q|}
  84.          {retu}
  85.  
  86.  {:jmr}                             ;Jimmer
  87.          {setv md_pmt,or menu>: }
  88.          {setv mt_qwk,no messages}
  89.          {setv md_brnch,qdl,transfer...}
  90.          {setv xfer_pmt,transfer...}
  91.          {setv rdr,%qrdr}
  92.          {setv qwk,qwk}{setv rep,rep}
  93.          {setv yes,y|} {setv no,n|}
  94.          {setv quit,r|}
  95.          {retu}
  96.  
  97.  {:mkq}                             ;MKQwk
  98.          {setv md_pmt,r Command:}
  99.          {setv mt_qwk,No Message}
  100.          {setv md_brnch,qdl,=Yes):}
  101.          {setv xfer_pmt,=Yes):}
  102.          {setv rdr,%qrdr}
  103.          {setv qwk,qwk}{setv rep,rep}
  104.          {setv yes,y|} {setv no,n|}
  105.          {setv quit,q|}
  106.          {retu}
  107.  
  108.  {:dcq}                             ;DCQwk/TAG
  109.          {setv md_pmt,--->}
  110.          {setv mt_qwk,No Message}
  111.          {setv md_brnch,mc1,found :}
  112.          {setv xfer_pmt,Help ) }
  113.          {setv rdr,%qrdr}
  114.          {setv qwk,qwk}{setv rep,rep}
  115.          {setv yes,g|} {setv no,q|}
  116.          {setv quit,q|}
  117.          {retu}
  118.  
  119.  {:sxp}                             ;Silver Express
  120.          {setv md_pmt,Command:}
  121.          {setv mt_qwk,No Message}
  122.          {setv md_brnch,mc1,found :}
  123.          {setv xfer_pmt,Help ) }
  124.          {setv rdr,%qrdr}
  125.          {setv qwk,qwk}{setv rep,rep}
  126.          {setv yes,y|} {setv no,n|}
  127.          {setv quit,q|}
  128.          {retu}
  129.  
  130.  {:jet}                             ;JetMail
  131.          {setv md_pmt,Mail Command}
  132.          {setv mt_qwk,was found!}
  133.          {setv md_brnch,mc2,tal Messages: }
  134.          {setv xfer_pmt,bye when done?}
  135.          {setv rdr,%qrdr}
  136.          {setv qwk,qwk}{setv rep,rep}
  137.          {setv yes,y|} {setv no,n|}
  138.          {setv quit,q|}
  139.          {retu}
  140.  
  141.  {:roz}                             ;Rosemail
  142.          {setv md_pmt,Mail Command}
  143.          {setv mt_qwk,no new mess}
  144.          {setv md_brnch,qdl,is packet (}
  145.          {setv xfer_pmt,is packet (}
  146.          {setv rdr,%qrdr}
  147.          {setv qwk,qwk}{setv rep,rep}
  148.          {setv yes,y|} {setv no,n|}
  149.          {setv quit,q|}
  150.          {retu}
  151.  
  152.  {:coq}                             ;Charlie's Off-line .QWK Reader
  153.          {setv md_pmt,_    }        ;this %md_pmt is sort of a kludge
  154.          {setv mt_qwk,no messages}
  155.          {setv md_brnch,col1,Packed }
  156.          {setv xfer_pmt,format [Y,n]? }
  157.          {setv rdr,%qrdr}
  158.          {setv qwk,qwk}{setv rep,rep}
  159.          {setv yes,y|} {setv no,n|}
  160.          {setv quit,q|}
  161.          {retu}
  162.  
  163.  {:zns}                             ;ZIPNEWS (Jack Kilday's Internet door)
  164.          {setv md_pmt,choice: }
  165.          {setv mt_qwk,no new articles}
  166.          {setv md_brnch,zns1,Found:}
  167.          {setv xfer_pmt,articles?}
  168.          {setv rdr,%znr}
  169.          {setv qwk,zns}{setv rep,pst}
  170.          {setv yes,y|} {setv no,n|}
  171.          {setv quit,q|}
  172.          {retu}
  173.  
  174.  ┌────────────────────────┐
  175.  │  BBSware Prompt Table  │
  176.  └────────────────────────┘
  177.  *
  178.  *%bbs_pmt  =  BBSware_ProMpT   (The BBSware Main prompt)
  179.  *%nam_pmt  =  NAMe_ProMpT      (The BBS prompt asking for your name)
  180.  *%bypass?  =  Bypass nuisance  (different BBSware have different
  181.  *                               nuisance "continue" prompts.  You
  182.  *                               MUST define all 3!)
  183.  *%bye      = Logoff Command    (Command to exit BBS)
  184.  *%rs       = Response Suffix   (| for BBSware that expects you to
  185.  *                               press <CR> after each command)
  186.  
  187.  {:pcb}  {:alm} {:esc}              ;PCBoard
  188.          {setv bbs_pmt,Command?}    ;Main Board Prompt
  189.          {setv nam_pmt,st name?}    ;Name Prompt
  190.          {setv bypass1,n|,More?}    ;just say 'no' to "More?"
  191.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  192.          {setv bypass3,n|,=yes?}    ;just say 'no' to "mail scan"
  193.          {setv bye,g}
  194.          {setv rs,|}                ;Response suffix  *none* for hotkey BBS
  195.          {goto _logon}
  196.  
  197.  {:tag}                             ;T.A.G.
  198.          {setv bbs_pmt,IN MENU:}
  199.          {setv nam_pmt,number:}
  200.          {setv bypass1,n|,y/[N])}   ;just say 'no' to mail check
  201.          {setv bypass2,|,tinue>}    ;<Press ENTER to continue>
  202.          {setv bypass3,_,any key^)} ;Press SPACE an "any key" prompts
  203.          {setv bye,/g}
  204.          {setv rs,|}
  205.          {goto _logon}
  206.  
  207.  {:s-f}                                 ;SpitFire
  208.          {setv bbs_pmt,N MENU -}
  209.          {setv nam_pmt,st name:}
  210.          {setv bypass1,|,TER >}         ;Spitfire "more" and BLT bypass
  211.          {setv bypass2,|,[y/N]}
  212.          {setv bypass3,lob,[MM-DD-YY]:} ;Spitfire date of birth response
  213.          {setv bye,g}
  214.          {setv rs,|}
  215.          {goto _logon}
  216.  
  217.  {:wc!}                             ;Wildcat!
  218.          {setv bbs_pmt,] ? }
  219.          {setv nam_pmt,st name}
  220.          {setv bypass1,lov,CE ph}   ;Wildcat Phone Number verify
  221.          {setv bypass2,lob,UR bi}   ;Wildcat  Birthdate   verify
  222.          {setv bypass3,s|,S]top?}   ;Wildcat -pause- prompt
  223.          {setv bye,g}
  224.          {setv rs}
  225.          {goto _logon}
  226.  
  227.  {:gap}                             ;GAP
  228.          {setv bbs_pmt,Command :}
  229.          {setv nam_pmt,st name}
  230.          {setv bypass1,n|,More?}    ;just say 'no' to "More?"
  231.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  232.          {setv bypass3,n|,=yes?}    ;just say 'no' to "mail scan"
  233.          {setv bye,g}
  234.          {setv rs,|}
  235.          {goto _logon}
  236.  
  237.  {:rma}                             ;Remote Access
  238.          {setv bbs_pmt,Command:}
  239.          {setv nam_pmt, name: }
  240.          {setv bypass1,|,TER]}      ;Babble continue prompt
  241.          {setv bypass2,|,tinue:}    ;"Press 'Enter' to Continue:" prompt
  242.          {setv bypass3,n|,(Y/n/=)}  ;just say 'no' to "More'etc'?"
  243.          {setv bye,g}
  244.          {setv rs,|}
  245.          {goto _logon}
  246.  
  247.  {:mac}                             ;MACROBBS
  248.          {setv bbs_pmt,Command?}
  249.          {setv nam_pmt,login:}
  250.          {setv bypass1,|,any key]}  ;bypass "Press any key"
  251.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  252.          {setv bypass3,n|,=yes?}    ;just say 'no' to "mail scan"
  253.          {setv bye,g}
  254.          {setv rs,|}
  255.          {goto _logon}
  256.  
  257.  {:max}                             ;MAXIMUS-CBCS "Charlie's Foxhole"
  258.          {setv bbs_pmt,_^m^j}
  259.          {setv nam_pmt, name? }
  260.          {setv bypass1,|,to cont}   ;Press ENTER to continue
  261.          {setv bypass2,n|,mail?}    ;Don't check for mail
  262.          {setv bypass3,n|,etin?}    ;Don't read bulletins
  263.          {setv bye,g}
  264.          {setv rs,|}
  265.          {goto _logon}
  266.  
  267.  {:_logon}
  268.          {setv bbs}
  269.          {macl logon.mac,glr}
  270.